demand place

supplied-by
: string,  ( caddr u -- )
   here over 1+ chars allot place
;
